home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / pgmmenu.arc / CRC1235.DSP < prev    next >
Text File  |  1991-12-04  |  13KB  |  216 lines
  1.      A                                      INDARA
  2.      A                                      PRINT
  3.      A                                      CF01(01 'Command function 1 request-
  4.      A                                      ed (Return)')
  5.      A N10                                  CF03(03 'Command entry display requ-
  6.      A                                      ested.')
  7.      A          R CRC1235A
  8.      A                                      CHGINPDFT
  9.      A                                      OVERLAY
  10.      A                                      CHANGE(11 'Changes made')
  11.      A                                      BLINK
  12.      A                                  4  6'Keyword'
  13.      A                                      DSPATR(HI)
  14.      A                                  4 18'Default'
  15.      A                                      DSPATR(HI)
  16.      A                                  4 31'Description'
  17.      A                                      DSPATR(HI)
  18.      A                                  5  6'SRCFILE'
  19.      A            SRCF          10A  B  5 18
  20.      A N10                                  DSPATR(PR)
  21.      A  10                                  DSPATR(UL)
  22.      A                                      CHECK(VN)
  23.      A                                      CHECK(AB)
  24.      A                                  5 31'Source file  (blank for default)'
  25.      A                                  6  6'SRCLIB'
  26.      A            SRCFLB        10A  B  6 18CHECK(VN)
  27.      A                                      CHECK(AB)
  28.      A N10                                  DSPATR(PR)
  29.      A  10                                  DSPATR(UL)
  30.      A                                  6 31'Source library'
  31.      A                                  7  6'OBJLIB'
  32.      A            OBJLB         10A  B  7 18CHECK(VN)
  33.      A N10                                  DSPATR(PR)
  34.      A  10                                  DSPATR(UL)
  35.      A                                  7 31'Object library'
  36.      A                                  8  6'JOBD'
  37.      A            JOBD          10A  B  8 18CHECK(VN)
  38.      A N10                                  DSPATR(PR)
  39.      A  10                                  DSPATR(UL)
  40.      A                                  8 31'Job description'
  41.      A                                  9  6'JOBDLIB'
  42.      A                                      INDTXT(12 'New user being added')
  43.      A            JOBDLB        10A  B  9 18CHECK(VN)
  44.      A                                      CHECK(AB)
  45.      A  10                                  DSPATR(UL)
  46.      A N10                                  DSPATR(PR)
  47.      A                                  9 31'Job description library (blank for-
  48.      A                                       default)'
  49.      A                                 10  6'LOG'
  50.      A            LOG            4A  B 10 18VALUES('*YES' '*NO')
  51.      A N10                                  DSPATR(PR)
  52.      A  10                                  DSPATR(UL)
  53.      A                                 10 31'Log commands requested'
  54.      A                                 11  6'SIGNOFF'
  55.      A            SIGNOF         7A  B 11 18VALUES('*LIST' '*NOLIST')
  56.      A N10                                  DSPATR(PR)
  57.      A  10                                  DSPATR(UL)
  58.      A                                 11 31'Sign off list option'
  59.      A                                 12  6'LOGCLPGM'
  60.      A            LOGCLP         4A  B 12 18VALUES('*YES' '*NO' '*JOB')
  61.      A N10                                  DSPATR(PR)
  62.      A  10                                  DSPATR(UL)
  63.      A                                 12 31'Log CL program commands  (CRTCLPGM-
  64.      A                                      )'
  65.      A                                 14  6'USRPRF'
  66.      A            USRPRF         6A  B 14 18VALUES('*OWNER' '*USER')
  67.      A N10                                  DSPATR(PR)
  68.      A  10                                  DSPATR(UL)
  69.      A                                 14 31'Adopt user profile  (CRTxxxPGM)'
  70.      A                                 15  6'PUBAUT'
  71.      A            PUBAUT         7A  B 15 18VALUES('*NORMAL' '*ALL' '*NONE')
  72.      A N10                                  DSPATR(PR)
  73.      A  10                                  DSPATR(UL)
  74.      A                                 15 31'Public authority  (CRTxxx)'
  75.      A                                 16  6'RSTDSP'
  76.      A            RSTDSP         4A  B 16 18VALUES('*YES' '*NO')
  77.      A N10                                  DSPATR(PR)
  78.      A  10                                  DSPATR(UL)
  79.      A                                 16 31'Restore display  (CRTDSPF)'
  80.      A                                 17  6'DFRWRT'
  81.      A            DFRWRT         4A  B 17 18VALUES('*YES' '*NO')
  82.      A N10                                  DSPATR(PR)
  83.      A  10                                  DSPATR(UL)
  84.      A                                 17 31'Defer write until read  (CRTDSPF)'
  85.      A                                 18  6'SIZE'
  86.      A            SIZE1          8A  B 18 18
  87.      A N10                                  DSPATR(PR)
  88.      A  10                                  DSPATR(UL)
  89.      A                                 18 31'Initial Physical file size (CRTPF)'
  90.      A            SIZE2          5A  B 19 18
  91.      A N10                                  DSPATR(PR)
  92.      A  10                                  DSPATR(UL)
  93.      A                                 19 31'Number of increments'
  94.      A            SIZE3          6A  B 20 18
  95.      A N10                                  DSPATR(PR)
  96.      A  10                                  DSPATR(UL)
  97.      A                                 20 31'Maximum number of increments'
  98.      A                                 23  6'CMD 1 - Exit/No update'
  99.      A N10                             23 55'CMD 3 - Change defaults'
  100.      A                                      INDTXT(10 'Permit changes to displa-
  101.      A                                      y information.')
  102.      A                                 13 31'Allow CL source to be retrieved'
  103.      A                                 13  6'ALWRTVSRC'
  104.      A            ALWRTV         4A  B 13 18
  105.      A N10                                  DSPATR(PR)
  106.      A  10                                  DSPATR(UL)
  107.      A                                      VALUES('*YES' '*NO')
  108.      A          R CRC1235B                  OVERLAY
  109.      A                                      CHANGE(11 'Changes made')
  110.      A                                      BLINK
  111.      A                                  4  6'Keyword'
  112.      A                                      DSPATR(HI)
  113.      A                                  4 18'Default'
  114.      A                                      DSPATR(HI)
  115.      A                                  4 31'Description'
  116.      A                                      DSPATR(HI)
  117.      A                                  5  6'MAXRCDS'
  118.      A            MAXRCD         6A  B  5 18
  119.      A N10                                  DSPATR(PR)
  120.      A  10                                  DSPATR(UL)
  121.      A                                  5 31'Maximun number of records  (CRTPRT-
  122.      A                                      F)'
  123.      A                                  6  6'SCHEDULE'
  124.      A            PRTSCH         8A  B  6 18VALUES('*JOBEND' '*IMMED' '*FILEEND-
  125.      A                                      ')
  126.      A N10                                  DSPATR(PR)
  127.      A  10                                  DSPATR(UL)
  128.      A                                  6 31'Schedule (*JOBEND *FILEEND *IMMED)-
  129.      A                                        (CRTPRTF)'
  130.      A                                  7  6'BLINK'
  131.      A            BLINK          4A  B  7 18VALUES('*YES' '*NO')
  132.      A N10                                  DSPATR(PR)
  133.      A  10                                  DSPATR(UL)
  134.      A                                  7 31'Blinking cursor on the programmer'-
  135.      A                                      's menu'
  136.      A                                  8  6'RSTLIBL'
  137.      A            RSTLBL         4A  B  8 18VALUES('*YES' '*NO')
  138.      A N10                                  DSPATR(PR)
  139.      A  10                                  DSPATR(UL)
  140.      A                                  8 31'Restore original library list at C-
  141.      A                                      MD 1'
  142.      A                                  9  6'SHARE'
  143.      A            SHARE          4A  B  9 18VALUES('*YES' '*NO')
  144.      A N10                                  DSPATR(PR)
  145.      A  10                                  DSPATR(UL)
  146.      A                                  9 31'Share open data path of files (CRT-
  147.      A                                      xxx File)'
  148.      A                                 10  6'DFTTYPE'
  149.      A            DFTYPE         4A  B 10 18
  150.      A N10                                  DSPATR(PR)
  151.      A  10                                  DSPATR(UL)
  152.      A                                 10 31'Default for source/object type or -
  153.      A                                      *RQD'
  154.      A                                 11  6'MBRLIST'
  155.      A            MBRLST         4A  B 11 18VALUES('*YES' '*NO')
  156.      A N10                                  DSPATR(PR)
  157.      A  10                                  DSPATR(UL)
  158.      A                                 11 31'Require ? for EDTSRC member list r-
  159.      A                                      equest'
  160.      A                                 12  6'OPTIMIZE'
  161.      A            OPTMIZ         4A  B 12 18VALUES('*YES' '*NO')
  162.      A N10                                  DSPATR(PR)
  163.      A  10                                  DSPATR(UL)
  164.      A                                 12 31'Optimize RPGIII programs'
  165.      A                                 23  6'CMD 1 - Exit/No update'
  166.      A                                 23 30'CMD 2 - Previous display'
  167.      A N10                             23 56'CMD 3 - Change defaults'
  168.      A                                      INDTXT(10 'Permit changes to displa-
  169.      A                                      y information.')
  170.      A          R CRC1235D                  SFL CHGINPDFT
  171.      A                                      CHECK(AB)
  172.      A            SEQ            5  2B  5 18EDTWRD('  0.  ')
  173.      A                                      CHANGE(11 'Data changed somewhere -
  174.      A                                      within subfile.')
  175.      A                                      COMP(GE 0)
  176.      A    N10                               DSPATR(PR)
  177.      A     10                               DSPATR(UL)
  178.      A            LIB           10   B  5 27CHECK(VN)
  179.      A                                      CHANGE(11)
  180.      A    N10                               DSPATR(PR)
  181.      A     10                               DSPATR(UL)
  182.      A          R CRC1235C                  SFLCTL(CRC1235D)
  183.      A                                      SFLSIZ(25)
  184.      A                                      SFLPAG(25)
  185.      A                                      SFLLIN(04)
  186.      A                                      CF02(02 'Previous display')
  187.      A                                      BLINK  OVERLAY
  188.      A  21                                  SFLDSP
  189.      A  21                                  SFLDSPCTL
  190.      A N21                                  SFLCLR
  191.      A                                      CHANGE(11 'Changes made')
  192.      A                                  4  3'Library list:'
  193.      A                                  4 20'Seq.'
  194.      A                                      DSPATR(HI)
  195.      A                                  4 27'Library'
  196.      A                                      DSPATR(HI)
  197.      A                                  4 43'Seq.'
  198.      A                                      DSPATR(HI)
  199.      A                                  4 50'Library'
  200.      A                                      DSPATR(HI)
  201.      A          R CRC1235T
  202.      A                                  1  3DATE
  203.      A                                      EDTCDE(Y)
  204.      A                                  1 12TIME
  205.      A                                  1 31'COZZI UTILITIES'
  206.      A                                  1 54'+++'
  207.      A                                      DSPATR(HI)
  208.      A            PGMNAM        10A  O  1 70
  209.      A                                  2 24'Programmer Menu User Defaults'
  210.      A                                      DSPATR(HI)
  211.      A  12                              2 63'*New User*'
  212.      A                                      DSPATR(HI)
  213.      A                                  3 54'User ID:'
  214.      A            USER          10A  O  3 63COLOR(RED)
  215.      A                                      DSPATR(HI)
  216.